home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / exitFrameScripts_17.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  462 b   |  17 lines
  1. property done
  2.  
  3. on exitFrame me
  4.   global gConMan, gCostMan, gToolBarTextMan, gUserDataMan, gPromptMan
  5.   if not done then
  6.     setToolBarText(gToolBarTextMan, "init_iso_cons")
  7.     sendAllSprites(#sendToolBarCoverAway)
  8.     gConMan = new(script("constructionDecisionTracker"))
  9.     gCostMan = new(script("costManager"))
  10.     if not baseCostAndFoundationCharged(gUserDataMan) then
  11.       doPrompt(gPromptMan, #BCandF)
  12.     end if
  13.     done = 1
  14.   end if
  15.   go(the frame)
  16. end
  17.